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A set of programs designed to facilitate software testing on the 
DATAC Bus Monitor is described. 


I. INTRODUCTION 

The DATAC Bus Monitor Unit (BusMon) is a Z8000-based microcomputer 
system designed to receive, interpret, and display selected data items 
appearing on a DATAC Digital Data Bus. Software for the Bus Monitor Unit 
is developed on a Tektronix 8550 Microprocessor Development System (MDS) . 

Once a program is written and compiled to object code, it may be tested 
using the in-circuit emulation and memory-partitioning capabilities of the 
8550. The in-circuit emulator allows the MDS to imitate the Z8000 pro- 
cessor, giving the operator extensive control of the test system, while 
memory partitioning allows the prototype system to utilize memory in the 
8550 as though it were part of the target system’s memory. This is a great 
help in lab-testing of the prototype system because of the simplicity of 
loading and running the test software. 

Because of the size of the Tektronix hardware, it is somewhat cumber- 
some to transport the entire MDS and the prototype system to a field 
installation simply to test programs in situ. To make on-site testing 
easier, a series of programs was developed to allow the Z8000 system, 
running in a standalone mode, to receive program code via its RS232C ports 
and ports on the host system, which stores the test program in a disk file. 

Once the program design is finalized, another utility program allows the 
Z8000 system to send the test software in ASCII form to a ProLog PROM 
programmer, eliminating the need for an integral PROM programmer on the 
MDS. These software tools are intended to simplify the development and 
testing of the data acquisition, reduction, and display routines planned 
for the DATAC Bus Monitor Unit. 

II. IMPLEMENTATION 

On the Tektronix 8550 MDS: 

Once a program for the Z8000 system has been written and reduced to 
machine code, it can be transferred to a DOS/50 disk file. D0S/50 is the 
operating system currently in use on the MDS. The file format consists of 
lines of ASCII characters in a format called Standard TEKHEX (figs. 1, 2). There 
are two types of records in a TEKHEX file: data records and the 

"null'* or terminator record. The format for a data record begins with the 
slash character *7” which denotes the start of a valid record. The slash 
is followed by 4 hex digits which specify the absolute loading address for 
the data contained in this record. Next are two hex digits which specify 
the number of bytes of data contained in the record. The following two 
digits form a nybble checksum of the load address and the datum count; that 
is, each digit of the load address and byte count are added together. This 
number, modulo 256, provides the first checksum. Following the checksum 
comes the data bytes representing the actual machine code of the program. 

After the data is the data nybble checksum. As with the first checksum, 
this is the sum of the individual hex digits of the data, modulo 256. Each 
record is terminated by an ASCII CR (0D hex). The last record in a TEKHEX 
file is the "null" record, that is, one with a datura count of zero. An 
address/ byte-count checksum is still generated, usually with a zero value. 
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A file in this format can be sent to a slave system via RS232C com- 
munications ports on the slave and the MDS. The host system will read a 
record from the TEKHEX file, send it to the prototype system, and wait for 
a single ASCII token to indicate a good (ACK) or bad (NAK) reception. The 
8350 uses the digits “0" as the ACK token and "7" as the NAK symbol. If 
the prototype system replies with an ACK, the MDS will send the next 
record, wait for the prompt for that record and so on until the entire file 
is sent. If the prototype system fails to reconstitute the same checksums 
sent in the TEKHEX record, it will reply with the NAK token. The 8550 will 
recognize this as a failed transmission and re-send the same record. The 
8550 will continue to send the flagged record until the slave system elects 
to abort the load operation with an abort message, which appears on the 
8550 console and halts the load operation, or the number of retries exceeds 
a limit set by the host system operator. After all data records are sent, 
followed by the null record, the 8550 exits from the load routines and and 
resumes terminal emulation. From this point, the MDS may simply be used as 
a console device to the prototype and the program is run on the prototype. 

On The Bus Monitor Unit: 

The loader program for the Z8000-based system (fig- 3; listing 1) is designed 
to accept serial ASCII data TEKHEX format, convert it to machine 
code, and store it in the prototype system memory. The processor monitor 
software for the Bus Monitor Unit provides serial I/O routines which allow 
it to transmit and receive blocks of ASCII data via serial port A, the 
default console port, by using the Z8000 System Call instruction, SC #0. 

The Z8000 loader program begins by sending the ACK token to the host system 
to indicate that it is ready to receive characters. The input operation of 
SC #0 returns a string in memory terminated by a carriage return. Once a 
string has been read, the loader routine scans the input buffer to find the 
"/" character to define the beginning of the record. If the slash does not 
occur in the first 80 bytes, it is assumed that part of the record was 
lost; TEKHEX records do not usually exceed 73 characters including the 
terminating carriage return. The loader routine sends a NAK token to 
request a re-send and waits for the next transmission. 

Once a record has been received and the slash found, the load address 
and byte count are converted from ASCII representations to their actual 
hexadecimal values. This is done by shifting the seven-bit-code for the 
most-significant-digit of a data byte (i.e, a single ASCII character) to 
the left by 4 bits, producing a datum of the form "x0" from M zx M in hex. 

The next character ("zy”), the least-significant digit of the datum being 
reconstituted, is logically ANDed with OF hex to zero the high order bits, 
leaving a M 0y M pattern in hex. The loader then ORs the two patterns 
together, giving a byte of the form ”xy M . If the character being converted 
is a numeric, the binary-coded decimal (BCD) representation of the number 
and the least significant nybble match exactly and the conversion process 
may proceed. If the hex character is an alphabetic, A-F, some adjustment 
is needed because the 4 low-order bits of the ASCII characters A through F 
do not correspond to the hexadecimal values A through F (10 to 15 decimal). 

In fact, the low-order nybble of ASCII characters A-F has the values 1-6 
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in BCD. Because of the sequential value, we may correct these charac- 
ters’ codes to correspond to their actual value by adding 09 hex to the 
character code before the masking process. This addition bumps the low- 
order bits to a pattern corresponding to the binary representation of their 
namesakes. With this correction, the characters A-F can then be processed 
like the numerics 0-9. The alphabetic character adjustment is handled by 
subroutine TSTNUM and the ASCII— to— hexadecimal conversion is performed by 
ASCHEX. 

Once the load address and byte count are reconstituted, the first 
checksum is generated. If the computed and transmitted checksums do not 
agree, a NAK token is sent and the Bus Monitor waits for a new 
transmission. Otherwise, the program reconstitutes the data stream using 
ASCHEX, stores it using the load address it generated earlier, and main- 
tains a running checksum. After all data have been stored in the proto- 
type’s RAM, the data checksum is reconstituted from the string buffer and 
compared with the calculated value. If a mismatch occurs, a NAK token is 
sent and the Bus Monitor waits for the the same record to be retransmitted 
from the host. Otherwise, it issues an ACK, waits for the next record, and 
continues the load-and-store process until the entire file has been sent. 

In the event 5 successive checksum errors occur, the Bus Monitor will abort 
the load operation by sending an "Abort Load" record, whose message is 
displayed on the system console (line 198 of listing 1). When the null 
record is received, the Z8000 returns to the resident monitor via SC #3. 

No integrity check is performed on the checksum, since a transmission error 
at this point doesn’t affect any data that has been stored. 

On the CP/M-oased Bus Monitor Console System: 

In field experiments, a DEC VT-180 will be used as the host for the 
program down— loading in addition to being a data display/command input 
device. The file down-loader (listing 2) is written in the "C" language 
for the CP/M environment by Manx Software Systems. This loader contains 
two deviations from the 8350 down-load procedure: one is that the VT-180 
itself counts errors and exits on 5 successive errors; the other is that on 
completion of file transmission, the loader is exited and the VT-180 
returns to the CP/M command processor rather than to terminal mode. 

Prolog PROM Programmer Support: 

This utility can be thought of as a complement to the downloader 
program for the Z8000. The program (listing 3) sends machine code from the 
Bus Monitor Unit to a Prolog PROM Programmer equipped with an RS-232C 
serial port. Two factors complicate this seemingly simple task: one is 
that the serial port drivers for the PROM programmer expect to see only 
ASCII data. The other is that the memory for a Z8000 system is organized 
as 16-bit words. As yet, there are no 16-bit-wide memory devices being 
manufactured. The designers of these microcomputer systems routinely solve 
the latter problem by using 2 byte-wide RAMs or ROMs in parallel, one 
device located at an even byte address, the other at the subsequent odd 
address. The first "trick" is that we must read alternating memory loca- 
tions (all even or all odd) addresses wheh sending data to the programmer. 
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We will solve the former problem by a procedure which complements the 
ASCHEX subroutine described earlier. The program produces two ASCII 
characters from one hexadecimal byte by splitting the byte into high and 
low-order nybbles and then shifting the high order nybble to the right 4 
bit places. For example, byte "xy" becomes two bytes "Ox" and "0y M , For 
the hexadecimal digits 0-9, we simply add 30 hex to each byte and we have 
the ASCII character corresponding to the BCD digit. The hex digits A-F 
again pose another problem: the ASCII collating sequence has specified 

that the low-order nybbles of of the codes for the characters A-F are 1-6 
decimal, not A-F hex. Further, the high order nybble of those letter 
digits is a hex 4, not a 3 , as is the case for the numeric characters. To 
handle this case, the program tests the nybble being converted to see if it 
lies in the range of A-F. If so, an adjuster of 07 hex is added to the 
nybble first. This corrects the least significant digit to the proper 
value and puts a 1 in the most significant digit. For example, to turn 0C 
hex to 43 hex (the ASCII code for the letter "C”) the following happens: 
add 07 to OC giving 13 hex, then add 30 hex giving 43 hex, giving the 
desired character code. 

The PROLOG utility is usually used with the 8350 running in processor 
emulation mode in the Bus Monitor system. A data rate of 2400 baud between 
the test system and the PROM programmer is assumed. The programmer support 
routine normally resides at address 4000 hex. If this conflicts with the 
intended load address of the program being sent to the PROM programmer, the 
support routine can be moved to another memory location. This is possible 
because the utility program uses only relative addresses, excepting the I/O 
port addresses which present no relocatability problems. Once the utility 
program and the application program have been loaded into Bus Monitor 
memory, the PROM programmer is set to receive the first block (even or odd) 
of data. Using the 8550 emulator or the Resident Monitor, the following 
CPU registers are initialized: R10 contains the address of the first byte 
if the program being sent to the programmer, Rll contains the address of 
the last byte to be programmed, and R12 contains a 0 if even-numbered bytes 
are being ROMmed, and a 1 if odd-numbered bytes are being sent to the 
programmer. Execution begins at the label GO; the "B" serial port on the 
serial I/O card is used to send data to the PROM programmer, R9 points to 
the machine code being processed. A pass is complete when R9 is greater 
than Rll, the stop address. For convenience, a breakpoint can be set at GO 
+ 4C hex, so that R12 can be toggled to send the second block of data bytes 
without having to reset R10 and Rll. With R12 readied for the next series 
of data and the programmer fitted with a new chip, execution may be resumed 
with a "GO" command, completing the programming process. 


III. SUMMARY 


The software described in this paper will facilitate the design and 
testing of software for the DATAC Bus Monitor Unit. By providing a means 
to simplify program loading, firmware generation, and subsequent testing of 
programs, we can reduce the overhead involved in software evaluation and 
use that time more productively in performance, analysis and improvement of 
current software. 
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Data /aaaa bb ac dd... dd dc <CR> 


Record 


1 1V/W* « 

LOAD 

ADDRESS 

BYTE 

COUNT 

1st 

CHKSUM 

DATA 

BYTES 

2nd RECORD 

CHKSUM TERMINATOR 

Terminator 

/ X X X X 

1 J 

0 0 

a c 



Record 

1 1 

i i 



LOAD 

ADDRESS 

ZERO- 

LENGTH 

RECORD 

CHKSUM 




Abort 

Record 



message text 


Figure 1. TEKHEX-f ormat records used by BusMon loader program. 
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/10 10080 A2 1E462ABBC6E2F3270 
/1018030D103FB220 

/101B000D 

Figure 2. Sample TEKHEX file. 



Figure 3. Z8000 loader outline. 
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APPENDIX A 


LISTING 1 


ASM Z800 1/28002 
V01. 01-01 (8550) 

1 

2 

3 

4 

5 

6 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


0 1-0 EC-83/08 :48 :48 

DATAC 8US MONITOR: 

LOADER FOR 28000 PROCESSOR INTERFACE TO DATAC SYSTEM 
AUTHOR: S.M. NOVACK l 2 SEPT 83 

REV 22 NOV 83: INCLUDES ERROR HANDLER- EXITS TO MONITOR 
MACRO DEFINITIONS HERE: 


7 

MACRO 

NYBSUM 


8 

LDB 

RL2 ,RH2 

jTRANSPOSE HEX DIGITS 

9 

SRAB 

RL2 ,#04 

;MAKE HOD THE LOD 

10 

AND 

R2,#0F0FH 

;MASK OFF HO BITS 

1 1 

AODB 

RH2 ,RL2 

;ADD NYBBLES W/0 CARRY 


;RH2 HOLDS NYBBLE CHECKSUM, TRANSFERRED TO RH7 
ENDM 

;THIS MACRO PERFORMS A TEST FOR CHECKSUM ERRORS, IF >5 THE LOAD IS ABORTED 


OOOOFEOO 

0000FE04 

OOOOFE54 

OOOOFE5C 


FEOO R 
4 

50 

8 

8 


MACRO 

INC 

CP 

JR 

SET 

LDB 

JR 

ENDM 

ORG 


ERRMSG 
R13 

R13,#5 
UGT,ABRTLD 
R12,#01 
ACKBUF ,#NAK 
NEWSTR 


COUNT NEW ERROR OCCURRENCE 
REACH MAX# OF ERRORS? 

TOO MANY ERRORS- RETURN TO MONITOR 
SET 'OLD STRING, REPEAT' FLAG 
READY BAD TX MSG 

REQUEST REPEAT OF MSG AND CLEAR INBUF 


OFEOOH 

;l/0 STRING BUFFER DEFINITIONS, MUST BE ORG'D IN RAM 

ACKBUF BLOCK 4 ; THREE 8YTE BUFFER TO HANDSHAKE WITH 8550 DURING FILE TX 

INBUF BLXK 80 ;80 BYTE BUFFER FOR RECEIVING TEKHEX FILES 

TKHXIN BLXK 8 

TKINAK BLOCK 8 ; l /O FC BLOX (WORKSPACE) 


31 

80E R 

ORG 

080EH 


32 


; CONSTANT DEFINITIONS: 


33 

3E 

PROMPT EQU 

3EH 

;8550 HANDSHAKE PROMPT CHAR 

34 

30 

ACK EQU 

3 OH 

;MSG RECEIVED TOKEN 

35 

37 

NAK EQU 

37H 

;MSG NOT RECEIVED TOKEN 

36 

OD 

RECEND EQU 

ODH 

;CR USED TO TERMINATE PROMPT STRING 

37 

2F 

RECMRK EQU 

2FH 

; 'SLASH' CHAR USED TO DELIMIT TEKHEX 

38 


1 



39 





40 





42 


• 



43 


; BEGINNING 

OF LOADER 

ROUTINE; 


44 

45 

46 

47 


CONSULT ZMON.DASSY AND .DUMP TO DETERM I NE ACTUAL ADDRESSES 
BEGINNING OF R CM ABLE ROUTINES, ALL JUMPS RELATIVE, ONLY 
RAM REFERENCES ARE ABSOLUTE FOR DURATION OF LOADER OPERATION 


48 

0000080E 

53544420 
54454B48 
4 558204C 
4F4 14445 
5220 


TMMSG 

ASCI 1 

'STD TEKHEX 

LOADER * ; NOTE# OF BYTES IN STRING 

49 




i 




50 

00000820 4DO8FE00 

R 

l NTCOM 

CLR 

ACKBUF 

;ONLY 3 OF 4 BYTES USED 

51 

00000824 

4D08FE02 

R 


CLR 

ACKBUF+2 

; 1 N HANDSHAKE SEQUENCE 

52 

00000828 

4C05FE01 

R 


LDB 

ACKBUF+1 ,#RECEND ;READY STRING FOR 



ODOD 






53 

0000082E 

4C05FE02 

R 


LDB 

ACKBUF+2, ^PROMPT ;TEK HANDSHAKE 



3E3E 






54 

00000834 

8X8 



CLR 

R1 2 

; FLAG : 0=NEW STRING, 1=REP'T OF LAST 

55 

00000836 

DF 56 



CALR 

SET 10 

; SET UP FC8 FOR INPUT OPERATIONS 

56 







; S ET UP FC8 FOR OUTPUT OPERATIONS 

57 

00000838 

8CA8 


NEWSTR 

CLRB 

RL2 

; (R2)=0 FOR ZAPPING 

58 

0000083A 

210A0050 



LD 

RIO, #80 

; NUMBER OF BYTES TO BE ZAPPED 

59 

0000083E 

2109FE04 

R 


LD 

R9,#l NBUF 


60 

00000842 

729A0A00 


ZAPWRD 

LDB 

R9(R10) ,RL2 

;ZERO OUT INBUF ( 1 HOPE..) 

61 

00000846 

ABAO 



DEC 

RIO 


62 

00000848 

EEFC 



JR 

NZ,ZAPWRO; 


63 

0000084A 

2101FE5C 

R 

OUTMSG 

LD 

R1 ,#TK 1 NAK 

; SELECT SIGNAL MODE FOR TEK 

64 

0000084 E 

7F00 



SC 

#0 

; OUTPUT PROMPT VIA MONITOR ROUTINE 
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ASM Z800 1/28002 
V01. 01-01 (8550) 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


0 1 -DEC-83/08 : 48:48 


;HOPEFULLY WITH A SERIAL LINE DEDICATED TO THE Z8K-TEK INTERFACE 
;THERE WON’T 8E ANY JUNK BEFORE THE PROMPT AND THE FIRST HEX RECORD. 

; UNT 1 L THAT SERIAL LINE IS ESTABLISHED, WE’LL SHARE THE ONE WITH 
;Z8K CONSOLE DEVICE AND PROVIDE FOR GETTING RID OF ANY BAD DATA 
; WE MAY HAPPEN TO READ. ONCE A SEPARATE SERIAL LINE IS AVAILABLE, WE CAN 
;D t SCARD THE ’FIND START-OF -RECORD * ROUTINE 

•IDLE 8550 BEGINS TO TX AFTER THE PROMPT SENT BY OUTMSG 


75 

00000850 

2101FE54 R GETSTR 

LD 

R1 , fTKHXI N 

; SELECT HEX RECORD READ-MODE 

76 

00000854 

7FOO 


SC 

#0 

;GET HEX RECORD AND SAVE IT AT INBUF 

77 

00000856 

7608FE04 R 


LDA 

R8 , 1 M3UF 

; SET BASE ADDRESS OF HEX STRING 

78 



,AT THIS POINT, WE SHOULD HAVE ONE COMPLETE TEKHEX RECORD FOR PROCESSING 

79 



REGISTER ASSIGNMENTS FOR REDUCING THE ASCII STRING 

80 




R1 : 

TRANSIENT AREA 

FOR CONSOLE I/O 

81 




R2: 

WORK AREAS FOR 

CHECKSUM COMPUTATION 

82 




R3 ,R4 : 

WORK AREAS FOR 

ASCII HEX CONVERSION 

83 




R5 : 

WORKSPACE FOR 

FINDING INCOMING ASCII STRING 

84 




R6: 

CONTAINS THE LOAD ADDRESS OF THE DATA 

85 




RH7: 

CONTAINS THE NYBBLE CHECKSUMS 

86 




RL7 : 

CONTAINS THE* 

DF DATA BYTES IN THE RECORD 

87 




R8 : 

POINTER INTO ASCII STRING FOR HEX GENERATION 

88 

89 




R13: 

CONTAINS CHECKSUM ERROR COUNT 

90 



FIRST 

WE'LL SCAN FOR JUNK THAT THE 28K MAY HAVE READ BEFORE 

91 



THE 8550 STARTED TX OF THE 

HEX FILE; THIS SECTION CAN BE 

92 



DELETED IF WE 

DEDICATE A SERIAL PORT FOR 8550/Z8K COMMUNICATION 

93 



’SLASH’ CHR 

DELIMITS START OF DATA 

94 

0000085A 

0608FE54 R SEEK 

CP 

R8 ,* 1 NBUF+80 

; AT THE END OF THE INPUT BUFFER? 

95 

0000085E 

E605 


JR 

EQ, STREQ 

; 1 F SO, THE WHOLE RECORD WAS JUNK, GET ANOTHER 

96 

00000860 

X812F2F 


CP8 

gR8,*RECMRK 

;SCAN INBUF FOR THE 'SLASH' CHARACTER 

97 

00000864 

E606 


JR 

EQ, TSTSTR 

;FOUNDIT! 

98 

00000866 

A980 


INC 

R8 

;0N TO THE NEXT CHAR 

99 

00000868 

EEF8 


JR 

NE, SEEK 

; HEADER NOT FOUND, TRY AGAIN 

100 

000 00 86 A 

4D05FE0O R 

STREQ 

LD 

ACK8UF ,*NAK 

;8AD TX.ASK FOR REPEAT OF STRING 



0037 





101 

00000870 

E8E3 


JR 

NEWSTR 

;D0 THE ASKIN' 

102 
1 03 



; END OF SOH-SCANNER ROUTINE 


104 



•WE'LL ASSUME 

THAT A VALID RECORD HAS BEEN READ 

105 



• 




106 

00000872 

80C4 

TSTSTR TEST 

R12 

; 1 S THIS NEW OR OLD DATA? 

107 

00000874 

EE01 


JR 

NZ, OLDSTR 

; DON'T RESET ERROR ACCUM IF THIS IS A REPEAT 

108 

00000876 

8008 


CLR 

R13 

;ZERO OUT CKSUM ERROR ACCUMULATOR 

109 

00000878 

OF 84 

OLDSTR CALR 

CHKTRM 

; SEE IF THE RECORD IS THE ZERO-LENGTH TERMINATOR 

110 



; 1 F TERM RECORD IS FOUND, RETURN TO MONITOR 

111 

0000087A 

A980 


INC 

R8 

;MOVE POINTER PAST HEADER TO FIRST ASCII CHARACTER 

112 



; (R8)= 

AD DRESS 

OF FIRST CHAR 

IN HEX STRING 

113 

0000087C 

DF97 


CALR 

ASCHEX 

;GET 1ST BYTE OF ADDRESS 

1 14 

0000087E 

A042 


LD8 

RH2 ,RH4 

; 1ST BYTE TO CKSUM ACCUMULATOR 

115 


M 


NYB SUM 


116 

00000880 

A02A M 


LD8 

RL2 ,RH2 

; TRANSPOSE HEX DIGITS 

117 

00000882 

B2A9FCFC M 


SRAB 

RL2,*04 

;MAKE HOO THE LOD 

118 

00000886 

07020F0F M 


AND 

R2,*0F0FH 

;MASK OFF HO BITS 

119 

0000088A 

80A2 M 


ADDB 

RH2 ,RL2 

;ADD NYBBLES W/0 CARRY 

122 

0000088C 

A027 


LD8 

RH7 ,RH2 

;T0 CHECKSUM ACCUMULATOR 

123 

0000088E 

A046 


LDB 

RH6 ,RH4 

; HO0YTE OF ADDRESS TO R6 

124 

00000890 

A980 


INC 

R8 

; NEXT DIGIT 

125 

00000892 

DFA2 


CALR 

ASCHEX 

;GET SECOND BYTE OF LOAD ADDRESS 

126 

00000894 

A042 


LD6 

RH2 ,RH4 

; 2ND BYTE TO CKSUM ACCUMULATOR 

127 


M 


NYB SUM 



128 

00000896 

A02A M 


LDB 

RL2 ,RH2 

; TRANSPOSE HEX DIGITS 

129 

00000898 

B2A9FCFC M 


SRAB 

RL2 ,*04 

;MAKE HOO THE LOD 

130 

0000089C 

07020F0F M 


AND 

R2,*0F0FH 

;MASK OFF HO BITS 

131 

000008AO 

80A2 M 


ADDB 

RK2 ,RL2 

; ADD NYB8LES W/0 CARRY 

134 

00000 8 A2 

8027 


ADDB 

RH7 ,RH2 

;ADD IT TO ACCUM 

135 

000008A4 

A04E 


LDB 

RL6,RH4 

; LOBYTE TO R6; LOAD ADDRESS IS NOW COMPLETE 
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ASM Z8001/Z8002 

V01. 01-01 (8550) 0 1-0EC-83/08: 48:48 


136 



i 



137 

Q00QQ8A6 

A980 

INC 

R8 

ON TO THE BYTE COUNT 

138 

000008A8 

OF AD 

CALR 

ASCHEX 

GET# OF BYTES IN MSG 

139 

000008AA 

A042 

LDB 

RH2 ,RH4 

ADD IT TO CHKSUM 

140 


M 

NY8 SUM 



141 

000008AC 

A02A M 

LDB 

RL2 ,RH2 

TRANSPOSE HEX DIGITS 

142 

00000 8 A E 

B2A9FCFC M 

SRAB 

RL2 ,#04 

MAKE HOO THE LOO 

143 

000008B2 

07020F0F M 

AND 

R2,#QF0FH 

MASK OFF HO BITS 

144 

00000886 

80A2 M 

ADD B 

RH2,RL2 

ADD NYBBLES W/0 CARRY 

147 

00000888 

8027 

ADDB 

RH7 ,RH2 

ADD RUNNING NYBBLE CHECKSUM 

148 

Q000088A 

A04F 

LDB 

RL7 ,RH4 

SAVE# OF DATA BYTES IN HEX FOR RAM LOAD 

149 

Q00008BC 

A980 

INC 

R8 

GET CHAR CNT FROM STRING 

150 

0000088E 

DFAA 

CALR 

CHKSUM 

TEST 1ST BYTE-CHECKSUM 

151 

00000800 

E609 

JR 

EQ, SUMOK 

NO PR CBS, GO ON 

152 


M 

ERRMSG 



153 

000008C2 

A 900 M 

INC 

R13 

COUNT NEW ERROR OCCURRENCE 

154 

000008C4 

0B0D0005 M 

CP 

R13,#5 

REACH MAX# OF ERRORS? 

155 

000008C8 

EB25 M 

JR 

UGT, ABRTLD 

TOO MANY ERRORS- RETURN TO MONITOR 

156 

000008CA 

A5C1 M 

SET 

R12,#01 

SET 'OLD STRING, REPEAT' FLAG 

157 

000008CC 

4C05FE00 MR 
3737 M 

LDB 

ACKBUF ,#NAK 

READY BAD TX MSG 

158 

00000802 

E882 M 

JR 

NEWSTR 

REQUEST REPEAT OF MSG AND CLEAR INBUF 

160 

00000804 

8C78 

SUMOK CLRB 

RH7 

RESET ACCUMULATOR FOR FOR SECOND CHECKSUM 

161 

00000806 

A980 

HXLOAD INC 

R8 

NXT CHR 

162 

00000808 

DFC5 

CALR 

ASCHEX 

FORM DATA BYTE 

163 

0000080 A 

A042 

LDB 

RH2,RH4 

SENT TO CKSUM ACCUM 

164 


M 

NYBSUM 



165 

000008DC 

A02A M 

LDB 

RL2,RH2 

TRANSPOSE HEX DIGITS 

166 

0000080 E 

B2A9FCFC M 

SRAB 

RL2,#04 

MAKE HOD THE LOO 

167 

000008E2 

07020F0F M 

AND 

R2,#0F0FH 

MASK OFF HO 8 ITS 

168 

000008E6 

80A2 M 

ADDB 

RH2,RL 2 

ADD NYBBLES W/0 CARRY 

171 

000008E8 

8027 

ADDB 

RH7,RH2 

ANOTHER DIGIT TO BE SUMMED 

172 

000008EA 

2E64 

LDB 

@R6,RH4 

STORE MACHINE CODE 

173 

000008EC 

A960 

INC 

R6 

NEXT RAM LOCATION* 

174 

000008EE 

AAFO 

DEC3 

RL7 

ONE LESS BYTE TO STORE 

175 

000008FO 

EEF2 

JR 

NE, HXLOAD 

UNTIL (RL7 )=0 , STORE THEM BYTES! 

176 



; RECORD LOAD COMPLETE 


177 

000008F2 

A980 

INC 

R8 


178 

000008 F4 

DFC5 

CALR 

CHKSUM 

;PROOUCE AND COMPARE SECOND BYTE-CHECKSUM 

179 

000008F6 

E609 

JR 

EQ,GOOORX 

;N0 ERRORS 

180 


M 

ERRMSG 



181 

000008F8 

A 900 M 

INC 

R13 

;COUNT NEW ERROR OCCURRENCE 

182 

000008FA 

08000005 M 

CP 

R13,#5 

; REACH MAX# OF ERRORS? 

183 

000008 FE 

EBOA M 

JR 

UGT, ABRTLD 

;T00 MANY ERRORS- RETURN TO MONITOR 

184 

00000900 

A5C1 M 

SET 

R 1 2 , #0 1 

; SET 'OLD STRING, REPEAT 1 FLAG 

185 

00000902 

4C05FE00 MR 
3737 M 

LDB 

ACKBUF, #NAK 

;READY BAD TX MSG 

186 

00000908 

E897 M 

JR 

NEWSTR 

;REQUEST REPEAT OF MSG AND CLEAR INBUF 

188 

0000090A 

4C05FE00 R 
3030 

GOODRX LDB 

ACKBUF, #ACX 

; S ET ACKNOWLEGE TOKEN 

189 

00000910 

80C8 

CLR 

R12 

CLEAR FLAG FOR A NEW STRING 

190 

00000912 

E892 

JR 

NEWSTR 

SEND IT TO THE 8550 

191 

00000914 

2101 09 1 C R 

ABRTLD LD 

R1,#M$G8LK 

READY ERROR MSG FOR TX TO TEK CONSOLE 

192 

00000918 

7F00 

SC 

#0 

SEND IT OUT 

193 

0000091 A 

7F03 

SC 

#3 

RETURN TO Z8000 MONITOR 

194 

000009 1C 

0200 

MSG8LK WORD 

0200H 

TX MODE FOR SC#0 

195 

0000091 E 

0000 

WORD 

OOOOH 

NOT USED 

196 

00000920 

0924 R 

WORD 

ENDMSG 

ADDRESS OF ERROR MSG 

197 

00000922 

002B 

WORD 

LSTCHR-ENDMSG 

# OF CHARS IN STRING TO BE TX'D 

198 

00000924 

2F2F2020 
4552524F 
52204C49 
40495420 
45584345 
4 5444544 
2C204C4F 
41442049 
53204142 
4F525445 
44 

ENDMSG ASCI 1 

»// ERROR LIMIT 

EXCEEDED, LOAD IS ABORTED' ; SELF-EXPLANATORY 

199 

00000940 

000 A 

CRLF BYTE 

ODH, OAH 


200 

0000094 F 

00 

LSTCHR BYTE 

0 
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ASM Z8001/Z8002 
V01. 01-01 (8550) 

202 

203 

204 

205 

206 


0 1-OEC-83/08 :48 :48 

END OF MAIN ROUTINE; HERE ARE THE SUBROUTINES... 

ASCHEX: THE ASCII CHARACTERS WHOSE ADDRESSES ARE (R8) AND (R8J+1 ARE 
CONSOLIDATED TO FORM ONE HEXADECIMAL BYTE. R3 AND R4 ARE THE WORK SPACE WITH 
THE FORMED HEX BYTE LEFT I N RH4 . 


207 

208 

00000950 

208C 

\SCHEX LDB 

RL4,gR8 

GET 1ST ASCII 

CHARACTER 

209 

00000952 

DFD3 

CALR 

TSTNUM 

ADJUST ASCI 1 

IF CHR IS A-F 

210 

00000954 

060COFOF 

AN 06 

RL4,*0FH 

MASK OFF ZONE 

BITS 

21 1 

00000958 

82C904Q4 

SLAB 

RL4,*04 

LSBITS BECOME 

MSB ITS 

212 

000009 5C 

A0C4 

LD6 

RH4 ,RL4 

READY FOR NXT 

DIGIT 

213 

0000095E 

A980 

INC 

R8 

NEXT DIGIT 


214 

00000960 

208C 

LDB 

RL4,gR8 

GET IT 


215 

00000962 

DFDB 

CALR 

TSTNUM 

ADJUST ASCI 1 

IF CHR IS A-F 

216 

00000964 

06OC0F0F 

ANDB 

RL4,*0FH 

PROCESS IT 


217 

00000968 

84C4 

ORB 

RH4,RL4 

FORM COMPLETE 

BYTE OF DATA 

218 

219 

0000096A 

9E08 

RET 


GO HOME 



220 

221 

222 


CHKSUM: COMPARE THE COMPUTED CHECKSUM WITH THE VALUE CONTAINED IN THE 
STRING TRANSMITTED FORM THE 8550. RUNNING CHECKSUM IS MAINTAINED IN 
RH7. THIS ROUTINE CALLS ASCHEX TO READ THE ASCII STRING AND GEN THE 


223 




,TX CHECKSUM 

• 



224 








225 

0000096C 

DOOF 

CHKSUM CALR 


ASCHEX 

;GET 1ST BYTE-CHECKSUM 

226 

0000096E 

8A47 


CPB 


RH7,RH4 

; COMPARE CALCULATED AND GIVEN CHECKSUMS 

227 

00000970 

9E08 

EXIT RET 



;R£QUEST ANOTHER TX OF THE STRING IF NEEDED 

229 




[CHKTRM: SCANS THE INPUT BUFFER FOR A BYTE COUNT OF ZERO. USES ASCHEX 

230 




TRANSLATE THE 

TWO ASCI 1 CHARACTERS OF THE DATA COUNT TO HEX. IF THE 

231 




BYTE COUNT 

IS 

ZERO, THE LOAD 

IS CONCLUDED WITHOUT A CHECKSUM SCAN AND CONTROL 

232 




IS RETURNED 

TO THE MONITOR 


233 




ENTER WITH 

(R8)= LXATION OF 

1ST CHAR IN LOAD ADDRESS 

234 








235 

00000972 

A18A 

CHKTRM LD 


R1 0 ,R8 

; S AVE CURRENT POSITION IN STRING 

236 

00000974 

A984 


INC 


R8,*5 

; A IM AT 1ST CHR OF BYTE COUNT 

237 

00000976 

0014 


CALR 


ASCHEX 

; FORM BYTE COUNT 

238 

00000978 

A1A8 


LD 


R8 ,R 1 0 

; RECOVER ORIGINAL POINTER 

239 

0000097 A 

8C44 


TESTB 


RH4 

;IS DATA STRING LENGTH ZERO? 

240 

0000097C 

9E0E 


RET 


NE 

;N0, GO BACK AND FINISH PROCESSING 

241 




,AT THIS POINT 

WHO CARES ABOUT A BIT-ERROR? 

242 

0000097E 

4DO5FE00 

R 

LD 


ACKBUF ,#ACK 

;S 1 GNAL THE END 



0030 






243 

00000984 

2101FE5C 

R 

LD 


R1 ,#TKINAK 

;READY THE MSG 

244 

00000988 

7F00 


SC 


#0 

; SIGNAL TRANSFER END TO HOST COMPUTER 

245 

0000098A 

7F03 


SC 


#3 

; LOAD COMPLETED, RETURN TO MONITOR 

246 




, SETIO: USED 

TO RESET FC8 FOR 

$C#0 

247 

0000098C 

210AFE54 

R SETIO LD 


R10,*TKHXIN 

;DEST FOR MOVE 

248 

00000990 

21 08099E 

R 

LD 


R1 1 , 4 1 CBLK 

; SOURCE FOR MOVE 

249 

00000994 

21090008 


LD 


R9 , 40 8H 

; 4 OF WORDS TO MOVE 

250 

00000998 

BBB1O9A0 

WMOVE LD 1 R 


@R10,gR1 1 ,R9 

; DO IT! 

251 

0000099C 

9E08 


RET 



;G0 HCME. • 

252 

00000 99E 

0100 

IOBLK WORD 


0100H ;BLOCK 

RECEIVE MOOE OF MONITOR CONSOLE HANDLER 

253 

000009AO 

0000 


WORD 


OOOOH ;NOT USED 

254 

000009A2 

FE04 

R 

WORD 


1 NBUF ; 1 NBUF 

BUFFER LOCATION 

255 

000009A4 

0050 


WORD 


0050H ; STRING LENGTH IS 80 DECIMAL BYTES TO ALLOW FOR JUNK 

256 








257 

000009A6 

0200 


WORD 


0200H ;BLOCK 

TRANSMIT MODE FOR SYSTEM CALL 40 

258 

000009A8 

0000 


WORD 


OOOOH ;NOT USED 

259 

000009AA 

FEOO 

R 

WORD 


ACKBUF ; START 

AODRESS OF PROMPT-ACKNOWLEGE BUFFER 

260 

000009AC 

0003 


WORD 


0003H ;ONE BYTE FOR PROMPT. ONE FOR ACK-NAK TOKEN.ONE FOR EOL 

261 




TSTNUM: CORRECTS ASCII CHARACTERS FROM A TO F TO ALLOW FOR SIMPLE 

262 




MANIPULATION 

TO HEX FORM 


263 

000009AE 

0A0C3939 

TSTNUM CP8 


RL4 ,f39H 


264 

000009B2 

E202 


JR 


LE, I SNUM ;IF 0 

-9, NO CORRECTION NEEDED 

265 

00000964 

000C09Q9 


ADDB 


RL4 ,#9 ;ELSE ADD OFFSET OF 9 TO PRODUCE USEABLE LO NYBBLE 

266 

000009B8 

9E08 

1 SNUM RET 


;BACK TO ASCHEX 

267 




rend of loader 

and subroutines 

268 


00000820 


END 


INTCOM; PROGRAM START ADDRESS FOR ASSEMBLER 
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ASM Z8001/Z8002 SYMBOL TABLE 
V01. 01-01 (8550) 


0 1-DEC-83/08:48 :48 


Scalars 

ACK 00000030 NAK 00000037 PROMPT 0000003E 

RECMRK 0000002F 

Strings 4 Macros 

ERRMSG M NYBSUM M 

Section = JBMLLOAD, Inpage Relocatable, Size = Q000FE64 


ABRTLO 00000914 

CHKTRM 00000972 

GETSTR 00000850 

I NTCOM 00000820 

MSG8LK 0000091C 

SEEK 0000085A 

TKHXIN OOOOFE54 

TSTSTR 00000872 


ACKBUF 0000FE00 

CRLF 00000940 

GOODRX 0000090A 

10BLK 0000099E 

NEWSTR 00000838 

SET 10 0000098C 

TK I NAK 0000FE5C 

WMOVE 00000998 


ASCHEX 00000950 

ENDMSG 00000924 

KXLOAO 00000806 

ISNUM 000009B8 

OLDSTR 00000878 

STREQ 0000086A 

TMMSG 0000080E 

ZAPWRD 00000842 


RECEND 00000000 


CHKSUM 0000096C 

EXl T 00000970 

INBUF 0000FE04 

LSTCHR 0000094 F 

OUTMSG 0000084A 

SUMOK 00000804 

TSTNUM 000009AE 


230 Lines Read 
268 Lines Processed 
0 Errors 
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APPENDIX B 


LISTING 2 

1 : /* 

2 : - 

3: - BUSLODR.C: 8350 DOWNLOAD EMULATOR FOR DEC VT-180 

4: - WRITTEN IN AZTEC C FOR THE CP/M ENVIRONMENT 

5 : - 

6: - AUTHOR: S. NOVACiCI 
7: - CREATED: JULY, 1984 
8 : - 
9: */ 

10 : 

11: //include "b:stdio.h" /* standard I/O used for file handling */ 


12: //define ACK 'O' /* definitions of: the ACK token */ 

13: //define NAK '7' /* the NAK token */ 

14: //define CR 13 /* end-of-line flag */ 

15: //define TX_RDY 0x01 /* UART transmitter ready flag bit */ 

16: //define RX_RDY 0x02 /* receiver ready bit */ 

17 : //define C0MM_DATA 0x58 /* UART data register port number */ 

18: //define COMM STAT 0x59 /* status register port number */ 

19: 

20 : /* 

21: infile: 

22: pointer for source file (from disk) 

23: numchar: 


24: subscript for reading characters from disk file into buffer vector 

25: outptr: 

26: subscript for sending buffer characters to UART 

27 : argc: 

28: command line argument count, used by ”C” console processor 

29: errcount: 

30: number of consecutive reception errors 

31: iolinebuf fer : 

32: array used in moving characters from disk file using standard 

33: I/O to UART using system-specific hardware 

34: reply: 

35: token read from BusMon system to indicate quality of message 

36: tx_stat, rx_stat: 

37 : UART register statuses used during character-send procedure 

38: 

39: */ 

40: 

41: FILE *inf ile,*fopen() ; 

42: int numchar, outptr , argc, errcount = 0; 

43: char iolinebuf fer [80] , reply , tx stat,rx stat; 

44: ” 

45 : /***************************************************************************/ 
46: 

47: main(argc,argv) 

48: char *argv[]; 

49: 

50: 

51 : 

52: /* 
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open disk, file to be sent to the BUSMON system 

if a NULL is returned, OPEN has failed, exit to CP/M 


53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 


95 

96 

97 

98 

99 
100 
101 
102 

103 

104 


*/ 

if ((infile = fopen(*++argv, ”r")) == NULL) { 

printf (“open failure on file %s\n", *argv); exit(99); 

} 


while () { /* a DO-ALWAYS loop, a la BASIC */ 

get_reply(); /* get first ACK to commence file transmission */ 

get_line(); /* read a line from the TEKHEX disk file */ 

//ASM 

/* after reading a line from the disk file, kill IRQs for */ 
DI /* polled serial 1/0 for both the record output */ 

/* and the REPLY input */ 

//END ASM 

tx_line(); /* send record to waiting BusMon unit */ 

get_reply(); 

errcount == 0; /* zero error count for each record being sent */ 

while (reply != ACK) { /* if NAK is received: */ 

retrans_record( ) ; 
get reply () ; 


//ASM 

El /* bring back IRQs for BD0S/BI0S disk I/O routines */ 

//END ASM 

} 

/*************************************************************************** / 


get_line( ) 

/* function to read <=80 character from the TEKHEX disk file */ 

for (numchar =1; nurachar <= 80; -H-numchar) ( /* for numchar = 1 to 80 */ 

iolinebuf f er [numchar ] = ge tc( inf iie) ; /* read from infiie to 

the line buffer */ 

if (iolinebuf fer [numchar] == EOF) { /*have we reached the end? */ 

f close(inf ile) ; /* if so, close the disk file */ 

exit(0); /* and back to CP/M... */ 

if [iolinebuf fer [numchar ] == CR) break; /* if a CR, exit from the read 

\ routine and move on */ 


/*************************************************************************** / 
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105: 
106: 
107 : 
108: 
109: 
110 : 
111 : 
112 : 
113 : 
114: 
115 : 
116: 
117: 
118: 
119: 
120 : 
121 : 
122 : 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131 : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141 : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151: 


tx_line() 

/* function to send a character at a time to the 8251A UART */ 

J 

/* send all the chars in the line buffer to the 8251A */ 

for (outptr =1; outptr <= numchar; -H-outptr) { 

/* idle until UART transmitter is ready */ 

while (( (tx_stat = in(C0MM_STAT) ) && TX_RDY) != TXJRDY) {} 
out(COMM_DATA,iolinebuffer[outptr] ) ; /* send out the character */ 


/*************************************************************************** j 


get_reply() 

/* receives reply token from the BusMon unit after tx line is performed */ 

while (((rx_stat = in(COMM_STAT) ) && RXJRDY) != RX_RDY) {} 

/* idle until UART receiver is ready */ 

reply = in(COMM_DATA) ; /* get ACK/NAK. token */ 

if (reply != ACK) { 

if (-H-errcount > 5) load_error( ) ; /* if too many errors, exit */ 


/***************************************************************************/ 


retrans_record( ) 

/* tx_line by another name, done for improved legibility 

/* since numchar is not destroyed by tx_line, this offers a very convenient 
/* way to retransmit the same line of characters */ 

{ 

tx line( ) ; 

r 


/*************************************************************************** / 


load__error( ) 

/* only if five successive load errors are reported by the BusMon */ 

{ 

/* El /* restore IRQs for standard I/O functions */ 

printf ( “error limit exceeded, load operation- aborted\ n“ ) ; 

fclose(inf ile) ; /* close the disk file */ 

exit(88); /* return to CP/M with error code 88 */ 

} 
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APPENDIX C 


LISTING 3 


ASM Z8001/ZS002 Page 1 

V01. 01-01 (8550) 30-NOV-83/1 2 : 00 :49 


1 


4000 R 


ORG 

4000H 


2 

00004000 

2 1007A3A C 

50 

LD 

RO , #7 A3AH 

SET UP UART FOR 2400 BAUD, 

3 

00004004 

3A060006 


OUTB 

0006H, RHO 

EVEN PARITY, 1 STOP BIT 

4 

00004008 

3A860006 


OUTB 

0006H,RLC) 

7 DATA BITS ON 6SI0 

5 

0000400C 

C827 


LDB 

RL0,#27H 

'8' SERIAL PORT TO DUMP 

6 

7 

00004 00 E 

3A860007 


OUTB 

Q007H ,RL0 

BYTES TO THE PROLOG 

8 



RIO: 

START 

ADDRESS (BYTE BOUNDARY) OF PROGRAM TO BE SENT TO PROLOG 

9 



R1 1 : 

END ADDRESS (BYTE BOUNDARY) OF PROGRAM 

10 
1 1 



R12: 

0=F0R 

EVEN NUMBERED BYTE* 

5, 1 FOR ODD NUMBERED BYTES 

i i 
12 



NOTE: 

PLEASE 

RECALL THAT THE EVEN 8YTES ARE LOW ORDER ADDRESSES BUT 

13 




ARE ACTUALLY THE HIGH ORDER DATA BYTE. PLEASE REMEMBER THIS WHEN 

14 




YOU USE THE NOTATION 'HIGH ORDER BYTE' WHEN DETERMINING WHICH 

15 




PROM YOU ARE PROGRAMMING 


\ o 
17 

00004012 

A1A9 

'nit 

LD 

R9,R10 

USE R9 AS WORKSPACE, SAVE RIO FOR NXT LOAD 

18 

00004014 

81C9 


ADD 

R9,R12 

SET EVEN/ODD ADDRESSES TO BE DUMPED 

19 

00004016 

209B 

40V E 

LDB 

RL3,@R9 

GET DATUM 

20 

00004018 

A0B3 


LDB 

RH3,RL3 

COPY DATUM TO WORK ON EACH NYBBLE 

21 

0000401 A 

0703F00F 


AND 

R3,#OFOOFH 

ISOLATE EACH NYBBLE 

22 

0000401 E 

B231FCFC 


SRLB 

RH3,#4 

REDUCE HO DIGIT TO HEX DIGIT 

23 

00004022 

0A030909 


CPB 

RH3 , #9 

IS DIGIT DECIMAL OR HEX?? 

24 

00004026 

E302 


JR 

ULE, NOTHX 

IF DECIMAL, NO OFFSET NEEDED 

25 

00004028 

00030707 


AD OB 

RH3,#7 

IF HEX, ADD 7 TO PUSH ASCII CODE TO ALPHA 

26 

00004 02C 

00033030 I 

slOTHX 

ADDB 

RH3,#30H 

IN ANY EVENT, ADD ZONE BITS TO MAKE ASCII CHAR 

27 

00004030 

A03C 


LDB 

RL4 # RH3 

MOVE FOR OUTPUT TO PROLOG 

28 

00004032 

DFF3 


CALR 

PUTCHR 

SEND IT OUT 

29 

00004034 

0A0B0909 


CPB 

RL3,*9 

SAME AS ABOVE 

30 

00004038 

E302 


JR 

ULE,N0THX2 

THIS TIME FOR LO NYBBLE 

31 

00004 03 A 

000B0707 


ADDB 

RL3,*7 

SAME OFFSET 

32 

00004 03 E 

000B3030 1 

WHX2 

ADDB 

RL3,#30H 

SAME ZONE BITS 

33 

00004042 

A0BC 


LDB 

RL4 ,RL3 

PUT LETTER IN THE MAILBOX 

34 

00004044 

DFFC 


CALR 

PUTCHR 

HERE COMES THE POSTMAN 

35 

00004046 

A991 


INC 

R9,#2 

MOVE TO NEXT BYTE OF THE PROGRAM 

36 

00004048 

8BB9 


CP 

R9,R1 1 

AT THE END OF THE PROGRAM? 

37 

00004 04 A 

E3E5 


JR 

ULE, MOVE 

IF NOT, GET ANOTHER BYTE!! 

38 

00004 04C 

E8E2 


JR 

INIT 

BREAKPOINT SET TO STALL HERE, THEN 

39 






GO TO INIT FOR NEXT PROM 

40 

00004 04 E 

3AE40005 1 

PUTCHR 

INB 

RL6 ,0005H 

GET STATUS BITS 

41 

00004052 

A760 


BIT 

R6,*0 

IS UART STILL BUSY? 

42 

00004054 

E6FC 


JR 

Z, PUTCHR 

IF SO, WAIT UNTIL CHAR IS SENT... 

43 

00004056 

3AC60004 


OUTB 

0004H,RL4 

SEND DATUM TO THE B-PORT 

44 

0000405A 

9E08 


RET 


BACK TO MAIN PROG 

45 


4000 


END 

GO 

THAT'S ALL FOLKS!!! 


ASM Z8001/Z8002 SYMBOL TABLE 

V01. 01-01 (8550) 30-NOV-83/1 2:00:49 

Section = JPROLOADLOAD, Inpage Relocatable, Size = 0000405C 

GO 00004000 INIT 00004012 MOVE 00004016 NOTHX 0000402C 

NOTHX2 0000403E PUTCHR 0000404E 

45 Lines Read 
45 Lines Processed 
0 Errors 
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